#!/usr/local/bin/perl -w

use Test::More qw(no_plan);
use lib "./lib";
use lib "../lib";

BEGIN {
   use_ok("Devel::Metadata");
}

#use strict;

my ($dmd, @distributions);

$dmd = Devel::Metadata->new();
@modules = $dmd->modules();
print "[all]\n", join("\n", sort @modules), "\n";

@modules = $dmd->modules("CPAN");
print "[CPAN]\n", join("\n", sort @modules), "\n";

exit 0;

